home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-05
/
sectra.exe
/
SECTRA.BAT
< prev
next >
Wrap
DOS Batch File
|
1992-10-03
|
588b
|
26 lines
@echo off
set AutoLoad=FALSE
:start
sectratr
if ERRORLEVEL 2 goto AutoLoad
if ERRORLEVEL 1 goto FatalError
if ERRORLEVEL 0 goto End
echo Sectra for DOS exited with an undefined ERRORLEVEL
goto End
:FatalError
echo Sectra for DOS exited with a Fatal Error.
echo Contact Thomas-Conrad Technical Support, (800) 334-4112
goto End
:AutoLoad
if "%AutoLoad%" == "TRUE" goto BtrieveError
echo Attempting to load Btrieve...
btrieve
set AutoLoad=TRUE
goto start
:BtrieveError
echo Btrieve could not be loaded.
:End
if "%AutoLoad%" == "TRUE" ubtrieve
:CleanUp
set AutoLoad=